Mac Mania 2

home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Algorithms Folder / upload / huffman.bas < prev next >
Unknown | 1994-05-18 | 2.3 KB | [ZTKN/ZBAS]
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
id metadata
key	value
macFileType	`[ZTKN]`
macFileCreator	`[ZBAS]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3a 00 00 00 00 00 00 | f0 5a 63 6f 70 79 72 69 |.:......|.Zcopyri|
|00000010| 67 68 74 20 31 39 39 34 | 20 62 79 20 53 74 65 70 |ght 1994| by Step|
|00000020| 68 65 6e 20 42 6f 65 72 | 6e 65 72 2c 20 65 79 65 |hen Boer|ner, eye|
|00000030| 20 73 79 73 74 65 6d 73 | 2d 20 00 00 00 44 00 00 | systems|- ...D..|
|00000040| ff c4 00 00 f0 5a 43 49 | 53 2d 37 34 32 30 33 2c |.....ZCI|S-74203,|
|00000050| 32 32 31 37 20 20 20 41 | 4f 4c 2d 49 53 49 53 49 |2217   A|OL-ISISI|
|00000060| 4e 43 20 20 42 4d 55 47 | 2c 20 49 4e 54 45 52 4e |NC  BMUG|, INTERN|
|00000070| 45 54 20 45 59 45 53 59 | 53 40 43 52 4c 2e 43 4f |ET EYESY|S@CRL.CO|
|00000080| 4d 00 00 2c 00 00 ff ba | 00 00 f0 5a 4d 41 59 20 |M..,....|...ZMAY |
|00000090| 4e 4f 54 20 42 45 20 55 | 53 45 44 20 46 4f 52 20 |NOT BE U|SED FOR |
|000000a0| 43 4f 4d 4d 45 52 43 49 | 41 4c 20 47 41 49 4e 00 |COMMERCI|AL GAIN.|
|000000b0| 00 0c 00 01 ff d2 00 00 | f0 16 20 62 00 00 00 44 |........|.. b...D|
|000000c0| 00 02 ff f2 00 00 f2 08 | 20 31 2c 22 48 55 46 46 |........| 1,"HUFF|
|000000d0| 4d 41 4e 20 63 6f 64 69 | 6e 67 20 28 70 72 65 73 |MAN codi|ng (pres|
|000000e0| 73 20 6d 6f 75 73 65 20 | 74 6f 20 65 78 69 74 29 |s mouse |to exit)|
|000000f0| 22 2c 28 34 2c 33 38 29 | 2d 28 36 35 30 2c 35 30 |",(4,38)|-(650,50|
|00000100| 30 29 00 00 00 46 00 03 | ff ba 00 00 f0 13 20 20 |0)...F..|......  |
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 66 72 6f |        |     fro|
|00000120| 6d 20 73 65 64 67 65 77 | 69 63 6b 20 41 4c 47 4f |m sedgew|ick ALGO|
|00000130| 52 49 54 48 49 4d 53 20 | 20 63 68 61 70 74 65 72 |RITHIMS | chapter|
|00000140| 20 32 32 20 70 67 20 32 | 38 37 00 00 00 3a 00 04 | 22 pg 2|87...:..|
|00000150| ff b8 00 00 f0 64 20 30 | 2c 20 5f 63 61 73 65 49 |.....d 0|, _caseI|
|00000160| 6e 73 65 6e 73 69 74 69 | 76 65 20 5f 73 74 72 52 |nsensiti|ve _strR|
|00000170| 65 73 6f 75 72 63 65 20 | 5f 6d 61 63 73 62 75 67 |esource |_macsbug|
|00000180| 4c 61 62 65 6c 73 20 00 | 00 0e 00 05 ff c4 00 00 |Labels .|........|
|00000190| 5f 4d 3d 20 32 35 36 00 | 00 3c 00 06 ff f0 00 00 |_M= 256.|.<......|
|000001a0| f0 13 20 69 6e 20 67 65 | 6e 65 72 61 6c 20 20 4d |.. in ge|neral  M|
|000001b0| 3d 20 6e 6f 20 6f 66 20 | 62 61 73 65 20 73 79 6d |= no of |base sym|
|000001c0| 62 6f 6c 73 20 3d 20 32 | 35 36 20 28 6f 6e 65 20 |bols = 2|56 (one |
|000001d0| 62 79 74 65 29 00 00 08 | 00 07 ff c2 00 00 00 00 |byte)...|........|
|000001e0| 00 54 00 08 ff f6 00 00 | 42 24 3d 22 41 20 53 49 |.T......|B$="A SI|
|000001f0| 4d 50 4c 45 20 53 54 52 | 49 4e 47 20 54 4f 20 42 |MPLE STR|ING TO B|
|00000200| 45 20 45 4e 43 4f 44 45 | 44 20 55 53 49 4e 47 20 |E ENCODE|D USING |
|00000210| 41 20 4d 49 4e 49 4d 41 | 4c 20 4e 55 4d 42 45 52 |A MINIMA|L NUMBER|
|00000220| 20 4f 46 20 42 49 54 53 | 20 22 3a 4c 42 3d f4 0f | OF BITS| ":LB=..|
|00000230| 28 42 24 29 00 00 00 4c | 00 09 ff aa 00 00 f0 13 |(B$)...L|........|
|00000240| 20 20 20 2a 2a 2a 2a 2a | 2a 2a 20 63 68 61 6e 67 |   *****|** chang|
|00000250| 65 20 42 24 20 66 6f 72 | 20 61 20 64 69 66 66 65 |e B$ for| a diffe|
|00000260| 72 65 6e 74 20 20 20 73 | 74 72 69 6e 67 20 74 6f |rent   s|tring to|
|00000270| 20 65 6e 63 6f 64 65 20 | 20 22 20 20 2a 2a 2a 2a | encode | "  ****|
|00000280| 2a 2a 2a 00 00 08 00 0a | ff b2 00 00 00 00 00 3c |***.....|.......<|
|00000290| 00 0b ff f6 00 00 f0 19 | 20 41 2d 5a 3a f0 0a 20 |........| A-Z:.. |
|000002a0| 58 28 32 35 36 29 2c 44 | 28 35 31 32 29 2c 53 28 |X(256),D|(512),S(|
|000002b0| 31 30 32 34 29 2c 41 28 | 31 32 38 30 29 2c 59 28 |1024),A(|1280),Y(|
|000002c0| 32 35 36 29 2c 5a 28 32 | 35 36 29 00 00 4e 00 0c |256),Z(2|56)..N..|
|000002d0| ff c2 00 00 f0 13 20 20 | 20 20 20 20 20 20 20 20 |......  |        |
|000002e0| 20 20 20 20 20 69 6e 20 | 67 65 6e 65 72 61 6c 20 |     in |general |
|000002f0| 75 73 65 20 44 49 4d 20 | 58 28 4d 29 2c 44 28 4d |use DIM |X(M),D(M|
|00000300| 32 29 2c 53 28 4d 2a 34 | 29 2c 41 28 35 2a 4d 29 |2),S(M*4|),A(5*M)|
|00000310| 2c 59 28 4d 29 2c 5a 28 | 4d 29 00 00 00 08 00 0d |,Y(M),Z(|M)......|
|00000320| ff b0 00 00 00 00 00 2e | 00 0e ff f6 00 00 4d 3d |........|......M=|
|00000330| 5f 4d 3a 4d 32 3d 32 2a | 4d 3a 4d 33 3d 4d 2f 32 |_M:M2=2*|M:M3=M/2|
|00000340| 3a 4d 34 3d 4d 32 2a 34 | 20 20 20 20 20 20 20 20 |:M4=M2*4|        |
|00000350| 20 20 20 20 00 00 00 24 | 00 0f ff d0 00 00 f0 13 |    ...$|........|
|00000360| 20 20 20 20 62 75 69 6c | 64 20 20 74 68 65 20 48 |    buil|d  the H|
|00000370| 55 46 46 4d 41 4e 20 54 | 52 45 45 00 00 44 00 10 |UFFMAN T|REE..D..|
|00000380| ff da fe 02 f0 01 20 69 | 3d 31 20 f6 04 20 4c 42 |...... i|=1 .. LB|
|00000390| 3a 4b 3d f4 11 28 f4 32 | 28 42 24 2c 69 2c 31 29 |:K=..(.2|(B$,i,1)|
|000003a0| 29 3a 58 28 4b 29 3d 58 | 28 4b 29 2b 31 3a f0 07 |):X(K)=X|(K)+1:..|
|000003b0| 20 69 3a f0 01 20 69 3d | 30 20 f6 04 20 4d 2d 31 | i:.. i=|0 .. M-1|
|000003c0| 00 00 00 26 00 11 ff ba | 00 00 56 3d 58 28 69 29 |...&....|..V=X(i)|
|000003d0| 2a 4d 32 2b 69 3a f0 11 | 20 22 41 64 64 54 6f 48 |*M2+i:..| "AddToH|
|000003e0| 65 61 70 22 3a f0 07 20 | 69 00 00 34 00 12 ff d8 |eap":.. |i..4....|
|000003f0| 00 00 f0 31 20 6e 3b 22 | 64 69 73 74 69 6e 63 74 |...1 n;"|distinct|
|00000400| 20 6f 66 20 22 3b 4c 42 | 3b 22 20 63 68 61 72 61 | of ";LB|;" chara|
|00000410| 63 74 65 72 73 22 3a 4e | 4d 31 3d 6e 2d 31 00 00 |cters":N|M1=n-1..|
|00000420| 00 38 00 13 ff ca 00 02 | 48 3d 4d 2d 31 3a f0 01 |.8......|H=M-1:..|
|00000430| 20 69 3d 31 20 f6 04 20 | 4e 4d 31 3a 4c 3d f4 13 | i=1 .. |NM1:L=..|
|00000440| 28 41 28 31 29 2f 4d 32 | 29 20 20 20 20 20 20 20 |(A(1)/M2|)       |
|00000450| 20 20 20 20 20 20 20 20 | 00 00 00 28 00 14 ff c6 |        |...(....|
|00000460| 02 02 4c 32 3d 41 28 31 | 29 20 f6 0a 20 4d 32 3a |..L2=A(1|) .. M2:|
|00000470| f0 11 20 22 52 65 6d 6f | 76 65 66 72 6f 6d 48 65 |.. "Remo|vefromHe|
|00000480| 61 70 22 00 00 3e 00 15 | ff d6 02 02 4c 4c 3d f4 |ap"..>..|....LL=.|
|00000490| 13 28 41 28 31 29 2f 4d | 32 29 3a 4c 33 3d 41 28 |.(A(1)/M|2):L3=A(|
|000004a0| 31 29 20 f6 0a 20 4d 32 | 3a f0 11 20 22 52 65 6d |1) .. M2|:.. "Rem|
|000004b0| 6f 76 65 66 72 6f 6d 48 | 65 61 70 22 3a 48 3d 48 |ovefromH|eap":H=H|
|000004c0| 2b 31 00 00 00 4c 00 16 | ff c0 02 02 56 3d 28 4c |+1...L..|....V=(L|
|000004d0| 2b 4c 4c 29 2a 4d 32 2b | 48 3a f0 11 20 22 41 64 |+LL)*M2+|H:.. "Ad|
|000004e0| 64 54 6f 48 65 61 70 22 | 3a 44 28 4c 32 29 3d 48 |dToHeap"|:D(L2)=H|
|000004f0| 3a 44 28 4c 33 29 3d 48 | 2b 4d 34 3a 53 28 48 2b |:D(L3)=H|+M4:S(H+|
|00000500| 48 29 3d 4c 32 3a 53 28 | 48 2b 48 2b 31 29 3d 4c |H)=L2:S(|H+H+1)=L|
|00000510| 33 00 00 0c 00 17 ff b2 | 00 00 f0 07 20 69 00 00 |3.......|.... i..|
|00000520| 00 36 00 18 ff f2 00 00 | f0 13 20 20 20 20 20 20 |.6......|..      |
|00000530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6e |        |       n|
|00000540| 6f 77 20 67 65 74 20 66 | 72 65 71 75 65 6e 63 79 |ow get f|requency|
|00000550| 20 63 6f 75 6e 74 73 00 | 00 14 00 19 ff c8 00 02 | counts.|........|
|00000560| f0 01 20 69 3d 30 20 f6 | 04 20 4d 2d 31 00 00 44 |.. i=0 .|. M-1..D|
|00000570| 00 1a ff ea 00 02 f0 0f | 20 78 28 69 29 3e 30 20 |........| x(i)>0 |
|00000580| f6 05 20 f0 37 20 4b 3c | 48 3a 45 3d 45 2f 32 2b |.. .7 K<|H:E=E/2+|
|00000590| 28 44 28 4b 29 f6 07 20 | 4d 34 29 3a 52 3d 52 2b |(D(K).. |M4):R=R+|
|000005a0| 31 3a 4b 3d 44 28 4b 29 | 20 f6 07 20 4d 34 2d 31 |1:K=D(K)| .. M4-1|
|000005b0| 3a f0 38 00 00 20 00 1b | ff ba 00 00 f0 11 20 22 |:.8.. ..|...... "|
|000005c0| 46 72 65 71 75 65 6e 63 | 79 22 3a 4b 3d 69 2b 31 |Frequenc|y":K=i+1|
|000005d0| 3a f0 07 20 69 00 00 26 | 00 1c ff de 00 00 f0 13 |:.. i..&|........|
|000005e0| 20 20 20 20 20 62 75 69 | 6c 64 20 20 65 6e 63 6f |     bui|ld  enco|
|000005f0| 64 65 64 20 73 74 72 69 | 6e 67 20 47 24 00 00 48 |ded stri|ng G$..H|
|00000600| 00 1d ff d8 00 02 52 3d | 30 3a f0 01 20 69 3d 31 |......R=|0:.. i=1|
|00000610| 20 f6 04 20 f4 0f 28 42 | 24 29 3a 4b 3d f4 11 28 | .. ..(B|$):K=..(|
|00000620| f4 32 28 42 24 2c 69 2c | 31 29 29 3a 59 59 3d 59 |.2(B$,i,|1)):YY=Y|
|00000630| 59 2a 32 5e 5a 28 4b 29 | 2b 59 28 4b 29 3a 52 3d |Y*2^Z(K)|+Y(K):R=|
|00000640| 52 2b 5a 28 4b 29 00 00 | 00 3a 00 1e ff b6 02 02 |R+Z(K)..|.:......|
|00000650| f0 0f 20 52 3e 3d 38 20 | f6 05 20 52 3d 52 2d 38 |.. R>=8 |.. R=R-8|
|00000660| 3a 47 24 3d 47 24 2b f4 | 25 28 f4 13 28 59 59 2f |:G$=G$+.|%(..(YY/|
|00000670| 32 5e 52 29 29 3a 59 59 | 3d 59 59 20 f6 0a 20 32 |2^R)):YY|=YY .. 2|
|00000680| 5e 52 00 00 00 0c 00 1f | ff c4 00 00 f0 07 20 69 |^R......|...... i|
|00000690| 00 00 00 50 00 20 ff f2 | 00 00 63 72 21 3d f4 0f |...P. ..|..cr!=..|
|000006a0| 28 47 24 29 2f 28 4c 42 | 2b 30 2e 30 29 3a f0 31 |(G$)/(LB|+0.0):.1|
|000006b0| 20 22 43 4f 4d 50 52 45 | 53 53 49 4f 4e 20 52 41 | "COMPRE|SSION RA|
|000006c0| 54 49 4f 20 22 20 3b 63 | 72 21 3a 47 24 3d 47 24 |TIO " ;c|r!:G$=G$|
|000006d0| 2b f4 25 28 59 59 2a 32 | 5e 28 38 2d 52 29 29 3a |+.%(YY*2|^(8-R)):|
|000006e0| 4b 3d 48 00 00 08 00 21 | ff ae 00 00 00 00 00 3c |K=H....!|.......<|
|000006f0| 00 22 ff f6 00 00 f0 13 | 20 20 20 20 20 47 24 20 |."......|     G$ |
|00000700| 69 73 20 63 6f 6d 70 72 | 65 73 73 65 64 20 73 74 |is compr|essed st|
|00000710| 72 69 6e 67 20 6e 6f 77 | 20 72 65 61 64 79 20 74 |ring now| ready t|
|00000720| 6f 20 64 65 63 6f 64 65 | 20 69 74 00 00 46 00 23 |o decode| it..F.#|
|00000730| ff c2 00 04 f0 01 20 69 | 3d 31 20 f6 04 20 f4 0f |...... i|=1 .. ..|
|00000740| 28 47 24 29 3a 4a 4b 3d | f4 11 28 f4 32 28 47 24 |(G$):JK=|..(.2(G$|
|00000750| 2c 69 2c 31 29 29 3a f0 | 01 20 4a 3d 31 20 f6 04 |,i,1)):.|. J=1 ..|
|00000760| 20 38 3a 4c 4a 3d 28 4a | 4b 20 f6 07 20 4d 33 29 | 8:LJ=(J|K .. M3)|
|00000770| 2f 4d 33 00 00 42 00 24 | ff b8 04 04 4a 4b 3d 4a |/M3..B.$|....JK=J|
|00000780| 4b 20 f6 07 20 4d 33 2d | 31 3a 4a 4b 3d 4a 4b 2b |K .. M3-|1:JK=JK+|
|00000790| 4a 4b 3a 4b 3d 53 28 4b | 2b 4b 2b 4c 4a 29 3a f0 |JK:K=S(K|+K+LJ):.|
|000007a0| 0f 20 4b 3c 4d 20 f6 05 | 20 f0 31 20 f4 25 28 4b |. K<M ..| .1 .%(K|
|000007b0| 29 3b 3a 4b 3d 48 00 00 | 00 22 00 25 ff bc fe 00 |);:K=H..|.".%....|
|000007c0| f0 07 20 4a 2c 69 3a f0 | 37 20 f2 0b 28 5f 64 6f |.. J,i:.|7 ..(_do|
|000007d0| 77 6e 29 3d 30 3a f0 38 | 3a f0 1f 00 00 08 00 26 |wn)=0:.8|:......&|
|000007e0| ff dc 00 00 00 00 00 38 | 00 27 ff f6 00 00 22 46 |.......8|.'...."F|
|000007f0| 72 65 71 75 65 6e 63 79 | 22 45 3d 45 2f 32 5e 28 |requency|"E=E/2^(|
|00000800| 31 32 2d 52 29 3a 59 28 | 69 29 3d 45 3a 5a 28 69 |12-R):Y(|i)=E:Z(i|
|00000810| 29 3d 52 3a 45 3d 30 3a | 52 3d 30 3a f0 12 00 00 |)=R:E=0:|R=0:....|
|00000820| 00 34 00 28 ff c6 00 00 | 22 41 64 64 54 6f 48 65 |.4.(....|"AddToHe|
|00000830| 61 70 22 f0 0f 20 56 3c | 4d 32 20 f6 05 20 f0 12 |ap".. V<|M2 .. ..|
|00000840| 20 3a f0 15 20 4e 3d 4e | 2b 31 3a 4b 3d 4e 3a 41 | :.. N=N|+1:K=N:A|
|00000850| 28 4e 29 3d 56 00 00 3e | 00 29 ff ca fe 00 f0 37 |(N)=V..>|.).....7|
|00000860| 20 41 28 f4 13 28 4b 2f | 32 29 29 3e 3d 56 3a 41 | A(..(K/|2))>=V:A|
|00000870| 28 4b 29 3d 41 28 f4 13 | 28 4b 2f 32 29 29 3a 4b |(K)=A(..|(K/2)):K|
|00000880| 3d f4 13 28 4b 2f 32 29 | 3a f0 38 3a 41 28 4b 29 |=..(K/2)|:.8:A(K)|
|00000890| 3d 56 3a f0 12 00 00 5a | 00 2a ff c0 00 02 22 52 |=V:....Z|.*...."R|
|000008a0| 65 6d 6f 76 65 66 72 6f | 6d 48 65 61 70 22 4b 3d |emovefro|mHeap"K=|
|000008b0| 31 3a 41 28 31 29 3d 41 | 28 4e 29 3a 56 3d 41 28 |1:A(1)=A|(N):V=A(|
|000008c0| 4b 29 3a f0 37 20 4b 3c | 3d 4e 2f 32 3a 4a 3d 4b |K):.7 K<|=N/2:J=K|
|000008d0| 2b 4b 3a f0 0f 20 4a 3c | 4e 20 f6 07 20 41 28 4a |+K:.. J<|N .. A(J|
|000008e0| 29 3e 41 28 4a 2b 31 29 | 20 f6 05 20 4a 3d 4a 2b |)>A(J+1)| .. J=J+|
|000008f0| 31 00 00 24 00 2b ff a4 | 00 00 f0 0f 20 56 3e 41 |1..$.+..|.... V>A|
|00000900| 28 4a 29 20 f6 05 20 41 | 28 4b 29 3d 41 28 4a 29 |(J) .. A|(K)=A(J)|
|00000910| 3a 4b 3d 4a 3a f0 38 00 | 00 16 00 2c ff da 00 00 |:K=J:.8.|...,....|
|00000920| 41 28 4b 29 3d 56 3a 4e | 3d 4e 2d 31 3a f0 12 00 |A(K)=V:N|=N-1:...|
|00000930| 00 08 00 2d ff e8 00 00 | 00 00 00 0a ff ff ff f6 |...-....|........|
|00000940| ff 00 f0 12 00 00       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+